home *** CD-ROM | disk | FTP | other *** search
/ Publication 14 / Publication_14_19xx_Civitas_de_Side_B.d64 / vergleiche ! (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  278b  |  18 lines
  1. 10 rem
  2. 11 rem aehnlich ?
  3. 12 rem by zeitgeist/civi/wil
  4. 13 rem
  5. 14 input"1.wort ";a$
  6. 15 input"2.wort ";b$
  7. 16 rem
  8. 17 l1=len(a$):l2=len(b$)
  9. 18 rem
  10. 19 forg=1tol1:s1=s1+asc(a$):next
  11. 20 forg=1tol2:s2=s2+asc(b$):next
  12. 21 rem
  13. 22 s1%=s1/100:s2%=s2/100
  14. 23 rem
  15. 24 ifs2>s1+l1*s1%ors1<s1-l1*s1%thenend
  16. 25 rem
  17. 26 print"aehnlich !"
  18.